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: ident ‘v04-000" 


' 
VE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


fe ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED *9 A LICENSE AND MAY BE USED AND aod 


_t® ONLY IN , ee WITH THE TERMS OF SUCH LICENSE AND WITH THE 


:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE, THIS SOFTWARE OR ANY OTHER 


(t® COPIES THEREOF MAY ott. BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ie phe gh ort ph — IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
3 8 —2 ae — NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


+ 
* 
a 
® 
o 
e 
® 
* 
® 
ie TRANSFERRED. . 
* 
® 
— 
® 
® 
aoe 
® 
fr 
® 


leeCeee KKH Re AeHeReReHeKeeeeHKeeteteneeteeteeeeteeeeeeeeerereereeeteerenee 
' 

‘ee 

Facility: VAX/VMS Analyze Command, BLISS Require File 


i Abstract: This is the BLISS require file for the ANALYZE facility. 
It includes various useful constructs and the definitions 
of all control blocks used by the facility. 


i Environment: 
i Author: Paul C. Anagnostopoulos, Creation Date: 29 December 1980 
i Modified By: 


' 

' 

' 

— 

' 

‘ 

‘ 

‘ 

' 

' 

: v03-004 — * *8* Donald G. Blair 10-May-1984 
: Add “‘severity_level"’ macro as part of my new 
condition handling code which allows us 

to return the correct condition value in RO. 
' 
' 
' 
' 
' 
'‘ 
' 
i 
' 


v03-003 LJA0108 Laurie J. Anderson 30-Jan-1984 
Add a couple new messages in the List of external Literals 
The message name for bad header block count and indirect 
message section names. 


v03-002 PCA1011 Paul C. Anagnostopoulos 11-Apr-1983 
Change the message prefix to ANLRMS$_ to ensure that 
message symbols are unique across alT ANALYZEs. This 
is necessitated by the new merged message files. 


v03-001 Jwt0075 Jim Teague 14-Dec-1982 
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Add message symbol for DMT Line. 
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Here we will define “extensions” to the BLISS Language. 


First we need values for boolean variables. 


literal 
false = 
true = 


_! Define structure type for VMS structures 


/ structure 
bblock Co.p.s.e;n] = 

j n 

(bdlock*+o)<p,s,e>; 

/! Now we will define macros to generate various things associated with 


3 string descriptors. 
| 


field descriptor_fields = set 
Len = (0,0,16,0), 
| ptr = 4,0,32,0) 


| tes; 


/macro descriptor = 
block(8,byte] field(descriptor_fields) %; 


macro describel) = ; rt 
uplit long(%charcount(Zremaining), uplit byte(Zremaining)) %; 
macro buf Lddescr iptor (name. Length address) = 

(name(0,0,32,0] = length; 

name(ptr] = address) 


: Now we define two macros that can generate descripted buffers. The 
: first is for OWN buffers and the second for LOCAL buffers. Note that 
: the local buffer must be defined Last in the declarations. 


macro own_described pei tor cnene, tangent * 
name: block[8+length, byte] field(descriptor_fields) 
ls initial (Length, name+8) 


macro lucal_described_buf fer (name, length) 
name: block 8? length. byted field( 

name(0,0,52,0] = length; 
name(ptr) = name+8 


descriptor_tields); 


| 
i 
} 


rE Now we define macros to increment and decrement a variable. 


| 
| macro increment (var) = 
(var = .var * 1) &, 
decrement (var) = 
(var = .var = 1) &; 
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We need an ‘infinite’ loop contruct. We also need a more elegant construct 
i tor terminating a loop. 


macro | = 
Ouhite 1 do %; 


macro exitif(] = 
if Zremaining then exitloop %; 


! Define a macro that can check statuses from routines. 


macro check(status)L) = 
(if not status then 
s: — — 


! Macro to implement a function (f) of the ye severity level that 
! maps the various rene oe such that arithmetic comparisions of the 


| 
|; 
| yield a order of precedence that is 


i mapped values ( f(sever 
' intuivitvely acceptable: 


ERROR NAME OLDVAL NEWVAL 


1 

' 

1 

F (SUCCESS) 1 -> 9 
i FCINFORMATIONAL) 3 — ; 
‘ F (WAR 1 0 — 

‘ FCERR 2 — § 
FCS SEVERE ERROR) 4 ==> 7 


severity level (tmp_status) = 
BEGIN 


LOCAL tmp_code: —5* CLONG); 
tmp_code = tmp_sta 
etme. code (sts$v — 2* - (4 * .tmp_code ([sts$v_success]) + 3 


! Define Literals for useful control characters. 


| 


literal 

= %x'07', 

backspace = %x‘08', 
a = %x'09", 
Linefeed = Zx'Oa', 
formfeed © En*ic’, 
creturn = &x'Od', 
ctrl_u = 2x'15', 

ctrliow = &x"17" 
ctrl” “2 = Ix'la‘, 
escape = Ix"lb', 

delete = En°7f* 


| 
} 


_! records. 


— — SSS — — — — — — — 


' 
e 
. 
'4 
' 
. 
! 
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: The following macros allow us to deal with fields in variable-iength 
Since we are analyzing, we can never assume that a field exists. 


This first macro requires five arguments: 
1-4) A structure reference to a field in a block. 

5) The address of a descriptor of the record containing the block. 

Upon entry, we assume two —2* 

FIT OK says whether all fields have fit so far. 


SCANP 


! what we will do is e 


! error messages and clear FIT_OK. 


macro — field 


f .fit_ok 
if socanptpos it tonvsiae/> gtru .rec 
t 


; 


points to the block within the record. 
msure that the specified field, defined relative to 
CANP, fits within the specified record. If not, 


we will produce an 


of ie tpontettenoffset.oiaeentenston.record_dec) = 
en 


an 
fi 


ord_dsc(ptr]+.record_dscllen] then ¢ 


ormat_error(anlobj$_fieldfit); 
ok = false; 


The next macro requires exactly the same five arguments, and makes the 

same two assumptions. However, in this case, we assume the field describes 
the count byte of an ASCIC string. We will check 
count byte and the pte Re 


of the string in the six 


We will also c 


the fit of both the 
onstruct a descriptor 


argument for later use. 


macro ensure_ascic_fit(position,offset,size,extension,record_dsc,ascic_dsc) = 
-Tit_ok then 


ensure cele. t 


); 


ok the 


build_descriptor(ascic_dsc 


ensure_fiel 


d_fitloffset+1.6 


Stipes {tton.of feet size .eutensten.record_ése): 
n 


ch$rchar(.scanp+position),.scanp*position+1); 
»-ascic_dscllen],0.,record_dsc); 
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! Include the definitions of all the ridiculous message status codes. 
external 5 

anlobj$_ok, 

anlob)$_anything, 


errornone, 
errors, 
exefixa 
exefixaimage, 
exefixaline, 
exetixcount, 
exefixextra, 
exefixfixed, 
exefixflags, 
exefixg 
exefixgimage, 
reat Hh 9 . 
exefixlist, 
_exefixname 
“exefixnamed, 
exefixp, 
exefixpsect, 
_exefixup, 
_exefixupnone, 


PAAAAPRAAAAAAHM 


3 

2 

4 
PAAPAPAAAAA 


_exehdractive, 
exehdrblkcount, 
exehdrchancount, 
exehdrchandef, 
exehdrdececo, 


exehdrdst, 
_exehdrfileid, 
exehdrfixed, 
—RcoG⁊ 
dexehdroblĩdent, 
222 
exehdr ident, 
_exehdrimageid, 
_exehdrisd, 
_exehdrisdbase, 
exehdrisdcount, 
_exehdrisdflags, 
exehdrisdgbinam, 
exehdrisdnum, 
exehdrisdpfcdef, 
exehdrisdpfcsiz, 
exehdrisdtype, 
_exehdrisdvbn, 
_exehdrlinkid, 
exehdrmatch, 
exehdrname, 


* 

2 

— 

2 

Cc 
PAPAPAPAPPAPAPAAPAPAPAAAPAAARAAAHA 


anlob}$_ 
anlob)$ 
antobji$ 
anlob ; 
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anlobj$_exehdrpagecount, 
22 $_exehdrpagedef, 
anlob g.oneneree ch, 
anlob aonenerpe chdate. 
anlobj$_exehdrpriv, 
anlob)$_exehdrropatch, 
anlobj$_exehdrrwpatch, 
anlob g-exehdrsyndbg, 
anlobj$_exehdrsysver, 
anlobj$_exehdrtextvbn, 
anlobj$_exehdrtime, 
anlob)$_exehdrtypeexe, 
anlob)$_exehdrtypelim, 
anlob]$_exehdrusereco, 
anlobj$_exehdrxfer1, 
anlobj)$_exehdrxfer2, 
anlob)]$_exehdrxfer5, 
anlob}$-exeheading, 
anlob)$_exepatch, 
anlob}$_ ag. 
anlobj$_hexdata 
antob $"hexheading!, 
anlob sapeunoed ngs. 
antob $_indmsgsec, 
anlobj$_interact, 
anlob}$_mask, 
anlob)$_objcprrec, 
onied $"objdbgrec, 
anlobj$_objenv 
anlobj$~ ob eomf lags. 
anlob}$_objeomrec, 
anlob)$_ “ob eomsevabt, 
anlobj$_objeomseverr, 
anlobj$_objeomsevign, 
anlob}$_ 2 eomsevres, 
anlob}$_objeomsevsuc, 
anlob}$_objeomsevwrn, 
anlob}$_objeomwrec, 
anlob}$_ob] fadpassmech, 
anlobj$_ob)gsdenv 
anlobj$~objgsdenvf lags. 
anlob)$_objgsdenvpar, 
anlob}$_ob)gsdepm, 
anlob)]$_objgsdepmw, 
anlobj$_objgsdidc, 
anlob}$_objgsdidcent, 
anlobj$_objgsdidcflags, 
anlobj$_obj]gsdidcmatch, 
anlob}$_ob gsdidcobj. 
antob}$_objgsdidcvala, 
anlob}]$_objgsdidcvalb, 
anlobj$_objgsdlepm, 
anlob)$_objgsdlpro, 
anlob}$_objgsdlsy, 
anlob]$_objgsdpro, 
anlobj$_ob)gsdprow, 
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anlobj$_objgsdpsc, 
anlobj$_ob)gsdpscalign, 
anlob)]$_ob)gsdpscalloc, 
anlob)$_objgsdpscbase, 
antob}$_ob)gsdpsc flags, 
anlobj$_objgsdrec, 
anlobj}$_objgsdspsc, 
anlob)$_objgsdsym, 
anlobj}$_ob)gsdsymw, 
anlobj$_ob gtxrec. 
anlob)$_objhdrignrec, 
anlob $-0b hee ng. 
anlobj}$_ob)lLitindex, 
anlobj$_objinkrec, 
anlob}$_ob)(nmrec, 
anlob)$_ob}mhdcreate, 
anlobj$_objmhdname, 
anlob})$_objmhdpatch, 
anlob)$_objmhdrec, 
anlobj$_ob)mhdrecsiz, 
anlobj)$_objmhdstrivil, 
anlob)}$_objmhdversion, 
anlobj$_objmtccorrect, 
anlob)$_objmtcinput, 
anlob)$_objmtcname, 
anlobj$_objmtcrec, 
anlob}$_ob)mtcseqnum, 
anlob}$_objmtcuic, 
anlob)$_objmtcversion, 
anlob)]$_objmtcwhen, 
anlob}$_ob)proargcount, 
anlob}$_ob)proargnum, 
anlobj$_objpsect, 
anlobj$_objsrcrec, 
anlob)$_ob}statheading!, 
anlobj]$_objstatheading2, 
anlobj$_objstatline 
anlob)}$_ob stattotal, 
anlob}$_objsymbol, 
anlobj$_ob ayarie Ss. 
anlobj$_objt core ndex, 
anlobj$_objtircmd, 
anlobj$_objtircmdstk, 
anlobj}$_objtbtrec, 
anlob}$_ob)tirrec 
anlobj$_objtirstoim, 
anlobj$_objtirvield, 
anlobj$_ob)jttlrec, 
anlob)$_objvalue, 
anlob}$_objuvalue, 
anlobj$_protection, 
anlobj$_severity, 
anlobj$_text 
anlobj$~texthdr, 
anlobj$_nosuchmod, 


anlobj$_baddate, 
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anlobj$_badhdrbikcount, 
anlob}$_badseverity, 
anlobj$_badsymist, 
anlob}$_ So on pa 
anlob}$_badsymien, 
anlob S-exebadt ixupend, 
anlobj$_exebadfixupisd, 
anlobj$_exebadfixupvbn, 
anlobj$_exebadisds!, 
anlob s.enepedtsdt ype. 
anlobj$_exebadmatc 
anlob $-exebadparchlen, 
anlobj$_exebadob 
anlob}$_exebadtype 
anlobj$_exebadxfer0, 
anlob}$_exehdrisdlong, 
anlob g.cnebér tong. 
anlob)$_exeisdlendzro, 
anlob)$_exeisdlengbl, 
anlob $"exeisdlenpr iv. 
anlob)$_exenotnative, 
anlob s-ertrabytes. 
anlob 3-fi 
anlob)$_f Lagerror, 
22 $_noto 
nlob}$_ob —5 
anlobj$_ob}badnum, 
anlobj$_objbadpop, 
anlob $_objbadpush, 
22 $_ob badt ype, 
anlobj$_ob)badvield, 
anlob $_ob eombadsev. 
anlobj$_objeommissing, 
anlobj$_ob] fadbadavc, 
anlobj$_ob] fadbadrbc, 
anlobj$_ob}gsdbadalign, 
anlob $-p —— yp. 
anlob}$_ob 
anlob}$_ob mhdbadrecsiz. 
anlobj$_objmhdbadstrivl, 
anlob}]$_objmhdmissing, 
anlob 3.0 nontircmd, 
anlob)$_ 2 sc, 
anlobj$_ob bing lrec, 
ane $"objpOspace, 
anlobj$_objprominmax, 
anlob)}$_objpscabslen, 
anlob}]$_objrectoobig, 
anlobj$_objtirres, 
anlob bis. _objundefenv, 


anlob}$_objundeflit, 
anlobj$~ob undefpsc, 
analyze$_facility; 


! We use a few of the message in the shareable message file SHRMSG. 
' Define status codes for these which include our facility code and 
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|! the message severity. 


Literal 
anlob at }osetn = shr$_ 34 177*#65536 + 7itethner 
anlob seout Loseous + 177265536 + reteSk error, 
Lob “Spenin = shr$ _openin 3° + sts$k_error, 

ant t = shr$_openout + 177*65536 + otek =severe, 
$"readerr = shr$_readerr + 177*65536 + sts$k-erro 


an 
oat ob 34 
anlobj$_writeerr = shr$_writeerr + ° 7736 536 + sts$k severe; 


DIGITAL EQUIPMENT 
CONFIDENTIAL AND P 
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